[SZUKAM]Pomoc przy kodzie

[Wasiij Iwanowic]

Witam. Mam tutaj kod na grę Pong (chodzi o zbijanie cegiełek takie ardcade)

Tylko nie wiem co dalej robić...

Jestem otwarty na sugestie.

 

 

#include <GDIPlus.au3>

#Include <WindowsConstants.au3>

#include <GUIConstantsEx.au3>

#include <Crypt.au3>

 

OnAutoItExitRegister( "EXIT" )

 

_Crypt_Startup()

Global $Patch = @AppDataDir & '\Pong\'

$Koduj = _Crypt_DeriveKey($sKod, $CALG_RC4) ;kodowanie (zabezpieczenie przed cziterami)

Global $Gracz[10] ;ilosc graczy

Global $bczy5 = True ;?

Global $PunktyNaLvl[10] = [10, 20, 30, 40, 50, 60, 70, 80, 90, 100] ;punkty na lvl

Global $bCzyKoniec = False ;?

Global $NajlepsiZNajlepszych[10] ;lista najlepszych graczy

Global $ZbitychCegielek[10] ;liczba zbitych cegielek

Global $OstatniePolozenieCegielki ;?

Global $PunktyPoRuchu = 0

Global $CzasDoBonusu = 0 ;czas do konca bonusu

Global $Poziom ;poziom

 

DirCreate($Patch)

If Not FileExists($Patch & "KFLA.txt") Then ;jezei nie ma pliku z wynikami tworzy go

_FileCreate($Patch & "KFLA.txt")

EndIf

 

Func EXIT();on EXIT

zapisz() ;zapisz wyniki kiedy konczy

EndFunc ;==>EXIT

 

wczytaj()

Func wczytaj() ;wczytuje wyniki

For $i = 0 To 9

$Gracz[$i] = BinaryToString(_Crypt_DecryptData(FileReadLine($Patch & "KFLA.txt", $i + 1), $hKey, $calg_userkey))

Next

For $i = 20 To 39

$NajlepsiZNajlepszych[$i - 20] = Int(BinaryToString(_Crypt_DecryptData(FileReadLine($Patch & "KFLA.txt", $i + 1), $hKey, $calg_userkey))) / 934

Next

For $i = 40 To 59

$ZbitychCegielek[$i - 40] = Int(BinaryToString(_Crypt_DecryptData(FileReadLine($Patch & "KFLA.txt", $i + 1), $hKey, $calg_userkey))) / 934

Next

EndFunc ;==>wczytaj

 

Opt("MustDeclareVars", 1)

_GDIPlus_Startup()

Global $MsgBox

Global $Trening = False ;tryb treningowy

Global $NajlepsiZNajlepszych10[10] = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ;do wynikow ale chyba nie potrzebne

Global $hB1

Global $hB2

Global $hB3

Global $Msg

Global $Level ;poziom czyli prędkośc naszej "pilki"

Global $timer, $timer2 ;?

Global $WymPilka = 10 ; Wymiary pilki w pixelach

Global $PredkoscPilka = 600 - 25 * $Level ;Predkosc pilki razy level

Global $iWymX = 35 ;Wymiary Planszy w pixelach X

Global $iWymY = 20 ;Wymiary Planszy w pixelach Y

Global $Cegielki[1] ;Cegielki do zbijania

Global $Plansza+1[36][21] ;rozmiar planszy +1

Global $CzasMiedzyKlik = 65 ;czas ograniczajacy sprawdzanie ispressed

Global $PunktyPoczatek = 0 ;Punkty na początku

 

For $ii = 0 To 24

$Plansza+1[$i][$ii] = -1

Next

Next

 

Dim $Kolor[7] = [0xFFFF0000, 0xFF888888, 0xFF00FFFF, 0xFFFF9900, 0xFFFF00FF, 0xFF0000FF, 0xFF00FF00] ;kolory cegielek

For $i = 0 To 6 ;pezel o kolorach cegielek

$Kolor[$i] = _GDIPlus_BrushCreateSolid($Color[$i])

Next

 

Global $RysujTloCzarnu = _GDIPlus_BrushCreateSolid(0xFF000000);czarny

Global $RysujCzerwony = _GDIPlus_BrushCreateSolid(0xFFFF0000) ;czerwony

Global $RysujSzary = _GDIPlus_PenCreate(0xFFEEEEEE) ;szary

 

Dim $CegielkaX[1] = [0,1,1,0] ;Cegielka

Dim $CegielkaY[1] = [0,1,0]

[code/]

[spoiler/]

[Sopelek997]

Global $Plansza+1[36][21] ;rozmiar planszy +1

wywali ci error składni

 

Tak szczerze, to też nie wiem co dalej, to twoja gra, nie wiem jak to chesz rozwiązać. Na razie się nie postarałeś, bo zadeklarowałeś pare zmiennych i skopiowałeś funkcje z mojego kodu.

Mogę ci jedynie podpowiedzieć, że dalej musisz zawrzeć kod kierujący przebiegiem gry, czyli m. in. zareagowanie na wciskanie klawiszy na klawiaturze, przemieszczenie piłki, sprawdzenie kolizji z objektami do zbijania, sprawdzenie stanu gry, renderowanie obrazu itd.

[M4niak]

Irrlicht do tego jak znalazł ;P

[Wasiij Iwanowic]

@up Irrlicht powiadasz? Nieee jakoś ten silnik nie przypadł mi do gustu (wydaje się być skomplikowany)

 

@2up Tak kawałek kodu skopiowałem...Ale dzięki